在 Word 文档中按日期查看和接受修订的 4 种快速方法 |
您所在的位置:网站首页 › word 显示修订痕迹 › 在 Word 文档中按日期查看和接受修订的 4 种快速方法 |
在本文中,我们计划展示 4 种快速方式,供您在 Word 文档中按日期查看和接受修订。 一个文档可以有多个审阅者。 因此,这些修订必须在不同的日期或时间进行。 早些时候,我们讨论了如何查看和接受来自特定审阅者的修订。 今天,让我们向您展示如何按日期查看和接受修订。 按日期查看修订的 3 种方法首先,让我们看一下按日期查看修订的 3 种方法。 方法一:触发“审阅面板” 到tart 与,单击“审阅”选项卡。 然后单击“审阅窗格”后面的倒三角按钮。 接下来在下拉列表中选择“Reviewing Pane Horizontal”。现在,Word 窗口底部将打开一个窗口。 窗口中显示修订和修订日期。 如果您可能想要导出某个日期之前创建的所有修订,这里是您可以运行的宏。 首先,重复方法 4 中的前 2 个步骤。 然后粘贴以下代码: Sub ExtractRevisionsBeforeSpecificDate() Dim objRevision As Revision Dim objDoc As Document, objNewDoc As Document Dim dtRevisionDate As Date Dim strRevisionDate As String Dim varRevisionType As Variant Dim objTable As Table varRevisionType = Array("替换", "插入", _ "属性", " Delete", "ParagraphNumber", "NoRevision", "DisplayField", _ "Conflict", "Reconcile", "Style", "TableProperty", "SectionProperty", _ "ParagraphProperty", "StyleDefinition") strRevisionDate = InputBox("输入日期:") If strRevisionDate "" Then IsDate (strRevisionDate) Else End If dtRevisionDate = CDate(strRevisionDate) Set objDoc = ActiveDocument Set objNewDoc = Documents.Add Set objTable = objNewDoc.Tables.Add(Range:=objNewDoc. Range, _ numrows:=1, numcolumns:=3) nRow = 1 With objTable .Cell(1, 1).Range.Text = "Page" .Cell(1, 2).Range.Text = "Line" .Cell (1, 3).Range.Text = "Revision Type" For each objRevision In objDoc.Revisions If CDate(Left(Format(objRevision.Date, "MM/dd/yyyy"), 10)) < dtRevisionDate Then .Rows.添加 nRow = nRow + 1 .Cell(nRow, 1).Range.Text = objRevision.Range.Information(_ wdActiveEndAdjustedPageNumber) .Cell(nRow, 2).Range.Text = objRevision.Range.Information(_ wdFirstCharacterLineNumber) .Cell (nRow, 3).Range.Text = varRevisionType(objRevision.Type) 如果下一个 objRevision 以 End Sub 结尾 也单击“运行”按钮。Word 对损坏很敏感,因此使数百万个文件处于危险之中。 Word collapse 可以消除有价值的机密数据。 因此,你需要一个 Word文件问题恢复工具 释放您被困的数据。 作者简介:Vera Chen 是一位数据恢复专家 DataNumen, Inc.,它是数据恢复技术领域的世界领先者,包括 损坏的 xls 数据修复工具 和 pdf 修复软件产品。 欲了解更多信息,请访问 datanumen |
今日新闻 |
推荐新闻 |
CopyRight 2018-2019 办公设备维修网 版权所有 豫ICP备15022753号-3 |